proc msg:sndmsg {nick host handle arg} {
global botnick
  set otbn1 [lindex $arg 0]
  set botnet2 [lrange $arg 1 end]
if {![matchattr $handle m]} {
  putserv "NOTICE $nick :Unable To Execute Command - Permission Denied."
  return 0
  }
if {![matchattr $handle A]} {
  putserv "NOTICE $nick :ERROR - Unable To Execute Command - You need to authenticate first - Permission Denied."           
  putserv "NOTICE $nick :You may authenticate yourself by typing \002/msg $botnick auth <your password>\002"
  return 0
  }
if {[matchattr $handle D]} {
  putserv "NOTICE $nick :Unable To Execute Command - Access Is Disabled - Permission Denied."
  return 0
  }
  sndmsg $nick $otbn1 $host $botnet2
  return 0
  }


